Import jmd.rad

Graphics 640,480

While Not KeyDown(KEY_ESCAPE)
	Cls
	Local numSpheres:Int=30
	For Local i:Int = 0 To numSpheres
	SetColor(i*8,128-i*7,255-i*7)
	DrawOval Oscillate(0,600,2000,i*(360/numSpheres)),i*20,20,20
	Next
	Flip

Wend